home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
language
/
modula.zoo
/
_defn_ex_clock.def
< prev
next >
Wrap
Text File
|
1988-04-24
|
1KB
|
31 lines
(************************************************************************
* *
* D E F I N I T I O N M O D U L *
* *
* Projekt : Modula Einpass Compiler (m1pc) *
* Hauptmodul : *
* Modul : Clock *
* Beginn : 15.02.87 *
* *
* Bearbeitung *
* Freigegeben <---- *
* *
************************************************************************)
DEFINITION MODULE Clock; (* W. Heiz, 23-Dec-85 / 23-Dec-85 *)
TYPE
Time = RECORD
day: CARDINAL; (* ((year-1900)*20B + month)*40B + day *)
minute: CARDINAL; (* hour*60 + minute *)
millisecond: CARDINAL; (* second*1000 + millisecond *)
END;
PROCEDURE SetTime(t: Time);
PROCEDURE GetTime(VAR t: Time);
END Clock.